home *** CD-ROM | disk | FTP | other *** search
/ Amiga News 95 / Amiga News 95.iso / dpat / dpat31 / iobject / sources.lha / sources / callmethod.s < prev    next >
Encoding:
Text File  |  1993-03-23  |  2.5 KB  |  124 lines
  1. ;-----------------------------------------------;
  2. ;   Glue pour appeler les methodes des objets    ;
  3. ;      (C) 1992 Christophe PASSUELLO        ;
  4. ;         Tue Dec 15 15:50:15 1992        ;
  5. ;-----------------------------------------------;
  6.  
  7. ; definition des offset par rapport a la TMV
  8. Class        equ    0
  9. Size        equ    2
  10. Free        equ    4
  11. SendMsg        equ    8
  12. Add        equ    12
  13. Remove        equ    16
  14. Display        equ    20
  15. Erase        equ    24
  16. Modify        equ    28
  17. Value        equ    32
  18. OffObject    equ    36
  19. OnObject    equ    40
  20. Activate    equ    44
  21.  
  22.  
  23.     section text,code
  24.  
  25.     xdef    _FreeObject
  26.  
  27. _FreeObject:
  28.     move.l    4(sp),a0        ; Recupere l'objet
  29.     move.l    (a0),a0            ; Recupere la TMV
  30.     move.l    Free(a0),a0        ; recupere la methode
  31.     jmp    (a0)            ; saut a la methode
  32.  
  33.  
  34.     xdef    _SendMsgToObject
  35.  
  36. _SendMsgToObject:
  37.     move.l    4(sp),a0        ; Recupere l'objet
  38.     move.l    (a0),a0            ; Recupere la TMV
  39.     move.l    SendMsg(a0),a0        ; recupere la methode
  40.     jmp    (a0)            ; saut a la methode
  41.  
  42.  
  43.     xdef    _AddObjectToWindow
  44.  
  45. _AddObjectToWindow:
  46.     move.l    4(sp),a0        ; Recupere l'objet
  47.     move.l    (a0),a0            ; Recupere la TMV
  48.     move.l    Add(a0),a0        ; recupere la methode
  49.     jmp    (a0)            ; saut a la methode
  50.  
  51.  
  52.     xdef    _RemoveObjectFromWindow
  53.  
  54. _RemoveObjectFromWindow:
  55.     move.l    4(sp),a0        ; Recupere l'objet
  56.     move.l    (a0),a0            ; Recupere la TMV
  57.     move.l    Remove(a0),a0        ; recupere la methode
  58.     jmp    (a0)            ; saut a la methode
  59.  
  60.  
  61.     xdef    _DisplayObject
  62.  
  63. _DisplayObject:
  64.     move.l    4(sp),a0        ; Recupere l'objet
  65.     move.l    (a0),a0            ; Recupere la TMV
  66.     move.l    Display(a0),a0        ; recupere la methode
  67.     jmp    (a0)            ; saut a la methode
  68.  
  69.  
  70.     xdef    _EraseObject
  71.  
  72. _EraseObject:
  73.     move.l    4(sp),a0        ; Recupere l'objet
  74.     move.l    (a0),a0            ; Recupere la TMV
  75.     move.l    Erase(a0),a0        ; recupere la methode
  76.     jmp    (a0)            ; saut a la methode
  77.  
  78.  
  79.     xdef    _ModifyObject
  80.  
  81. _ModifyObject:
  82.     move.l    4(sp),a0        ; Recupere l'objet
  83.     move.l    (a0),a0            ; Recupere la TMV
  84.     move.l    Modify(a0),a0        ; recupere la methode
  85.     jmp    (a0)            ; saut a la methode
  86.  
  87.  
  88.     xdef    _ObjectValue
  89.  
  90. _ObjectValue:
  91.     move.l    4(sp),a0        ; Recupere l'objet
  92.     move.l    (a0),a0            ; Recupere la TMV
  93.     move.l    Value(a0),a0        ; recupere la methode
  94.     jmp    (a0)            ; saut a la methode
  95.  
  96.  
  97.     xdef    _OffObject
  98.  
  99. _OffObject:
  100.     move.l    4(sp),a0        ; Recupere l'objet
  101.     move.l    (a0),a0            ; Recupere la TMV
  102.     move.l    OffObject(a0),a0    ; recupere la methode
  103.     jmp    (a0)            ; saut a la methode
  104.  
  105.  
  106.     xdef    _OnObject
  107.  
  108. _OnObject:
  109.     move.l    4(sp),a0        ; Recupere l'objet
  110.     move.l    (a0),a0            ; Recupere la TMV
  111.     move.l    OnObject(a0),a0        ; recupere la methode
  112.     jmp    (a0)            ; saut a la methode
  113.  
  114.  
  115.     xdef    _ActivateObject
  116.  
  117. _ActivateObject:
  118.     move.l    4(sp),a0        ; Recupere l'objet
  119.     move.l    (a0),a0            ; Recupere la TMV
  120.     move.l    Activate(a0),a0        ; recupere la methode
  121.     jmp    (a0)            ; saut a la methode
  122.  
  123.     END
  124.